home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / www / IBClock_V1_2.lha / clock.ibrx next >
Text File  |  1997-07-21  |  6KB  |  147 lines
  1. /************************************************************************/
  2. /*                                                                      */
  3. /*        $VER: IBClock V1.2 ©1997 by Campino            */
  4. /*                                    */
  5. /************************************************************************/
  6. /*                                    */
  7. /* Startet die Uhr von der Workbench und holt sie in den IBrowse Screen */
  8. /*                                    */
  9. /* Start the clock from the workbench and displays it in the IBrowse S. */
  10. /*                                    */
  11. /*          Copyright ©1997 by Campino (campino@innocent.com) !         */
  12. /*                                    */
  13. /************************************************************************/
  14.  
  15. /************************************************************************/
  16. /*                                    */
  17. /* Installation:                            */
  18. /*                                    */
  19. /* 1) Erzeuge ein Rexx Verzeichnis im IBrowse Verzeichnis.        */
  20. /* 2) Kopiere das clock.ibrx in das Rexx Verzeichnis.            */
  21. /* 3) Starte IBrowse, gehe zum Menuepunkt Einstellungen/Allgemeines    */
  22. /* 4) Klicke auf Rexx und dann auf Neu                    */
  23. /* 5) Gib bei Name z.b. IBClock ein und wähle das clock.ibrx File im     */
  24. /*    Makro Eingabefeld !                        */
  25. /* 6) Klicke auf OK und speichere dann die Einstellungen ab !        */
  26. /* 7) Fertig ! Gehe nun zum Menuepunkt Rexx und waehle Clock an, nun    */
  27. /*    muesste die Uhr im IBrowse Screen zu sehen sein :)        */
  28. /*                                    */
  29. /* Installation:                            */
  30. /*                                    */
  31. /* 1) Create a directory called Rexx in the IBrowse directory.        */
  32. /* 2) Copy the clock.ibrx file in the Rexx directory of IBrowse.    */
  33. /* 3) Start IBrowse, go to the Menue Settings/General            */
  34. /* 4) Go to Rexx and then click on the New gadget            */
  35. /* 5) In the Name field you can enter e.g. IBClock. Choose the        */
  36. /*    clock.ibrx file in the Macro field !                */
  37. /* 6) Click on the OK gadget and save your settings !            */
  38. /* 7) Ready ! Go to the Menue Rexx and choose Clock. Now the clock must */
  39. /*    appear on the IBrowse Screen :)                    */
  40. /*                                    */
  41. /************************************************************************/
  42.  
  43. /************************************************************************/
  44. /*                                    */
  45. /* History                                */
  46. /*                                    */
  47. /* V1.0 (29.06.1997) - Mainrelease ! Released on Aminet.        */
  48. /* V1.1 (02.07.1997) - Added Prefs for "top","left" and name of "clock" */
  49. /*               Changed my EMail-Address. Never released.    */
  50. /* V1.2ß1 (12.07.97) - Added "RexxReqTools.library" for the BETA    */
  51. /*               requester. Added Beta-Tags. Changed ClockPath-    */
  52. /*               variables.                    */
  53. /* V1.2ß2 (18.07.97) - Added "RexxSupport.library". Changed the command */
  54. /*               line for Clock.                    */
  55. /* V1.2ß3 (19.07.97) - IBClock is now very easy to configure !        */
  56. /*               Deleted the ClockPath-Shit and added a simple    */
  57. /*               Clock variable. You can enter in this Clock-V.   */
  58. /*               your complete ClockPath+Name ! Changed the c.l.  */
  59. /* V1.2 (21.07.1997) - IBClock works now 100% ! Released on Aminet.    */
  60. /*                                    */
  61. /* FOR BUG-REPORTS OR ANYTHING OTHER FEEL FREE TO CONTACT ME VIA EMAIL! */
  62. /* EMAIL: CAMPINO@INNOCENT.COM                         */
  63. /*                                    */
  64. /************************************************************************/
  65.  
  66. /************************************************************************/
  67. /*                                    */
  68. /* THANX go to the following people:                    */
  69. /*                                    */
  70. /* Mirko Patzenbein    -    For BETA testing and nice EMail's    */
  71. /* Jorgen Sjobom    -    For BETA testing            */
  72. /* Felix Schwarz    -    For BETA testing and a few tips.    */
  73. /*                                    */
  74. /************************************************************************/
  75.  
  76. /************************************************************************/
  77. /*                                    */
  78. /* Moechtest Du gerne ueber Neuigkeiten von IBClock informiert werden ? */
  79. /* Moechtest Du gerne neue Versionen (auch BETA-Versionen) von IBClock    */
  80. /* direkt via EMail bekommen ? JA ? Dann sende eine EMail an        */
  81. /* campino@innocent.com und schreib im Betreff "subscribe IBClock"    */
  82. /* (ohne >"< !). Du bekommst dann eine kleine EMail, dass Du in die    */
  83. /* "Mailingliste" aufgenommen bist. DIESE IST KEINE NORMALE        */
  84. /* MAILINGLISTE ! DU BEKOMMST NUR NEWS UND NEUE VERSIONEN VON IBCLOCK.  */
  85. /* DU KANNST NICHT IN DIE MAILINGLISTE SCHREIBEN !            */
  86. /* Moechtest Du von der "Mailingliste" geloescht            */
  87. /* werden, so schreib eine EMail an campino@innocent.com und gebe im    */
  88. /* Betreff einfach "unsubscribe IBClock" (ohne >"< !) an !        */
  89. /*                                    */
  90. /* Would you like added to my "Mailinglist" ? In the "Mailinglist" you  */
  91. /* would be informed about news from IBClock and you will get new    */
  92. /* versions (also BETA-versions) directly via EMail from me !        */
  93. /* YES ? Send a EMail to campino@innocent.com with the subject        */
  94. /* "subscribe IBClock" (without >"< !). You will receive a short EMail  */
  95. /* that you are subscribed. THIS ISN'T A NORMAL MAILINGLIST ! YOU WILL  */
  96. /* RECEIVE ONLY NEWS AND NEW VERSIONS FROM IBCLOCK YOU CAN'T WRITE TO    */
  97. /* THE "MAILINGLIST" ! To unsubscribe: Write a EMail to            */
  98. /* campino@innocent.com and type in the subject "unsubscribe IBClock"    */
  99. /* (without >"< !).                            */
  100. /*                                    */
  101. /************************************************************************/
  102.  
  103. /**********************************************
  104.  *  Einstellungen ! - Ändere was Du willst !  *
  105.  **********************************************
  106.  *  Settings ! - Change what you want !       *
  107.  **********************************************/
  108.  
  109. IBrowseScreen='IBrowse'        /*    IBrowse Public Screen Name    */
  110.                 /*    IBrowse Public Screen Name    */
  111.  
  112. Clock='sys:utilities/clock'    /*    Wo befindet sich die Clock ?    */
  113.                 /*    Where is the clock ?        */
  114.  
  115. top=0                /*    Hoehen-Position der Uhr        */
  116.                 /*    Height-Position of Clock    */
  117.  
  118. left=9999            /*    Link-Position der Uhr        */
  119.                 /*    Left-Position of Clock        */
  120.  
  121. /************************************
  122.  *  Und nun - Ändere NICHTS mehr !  *
  123.  ************************************
  124.  *  And now - Change NOTHING more ! *
  125.  ************************************/
  126.  
  127. options results
  128.  
  129. if ~exists("Libs:rexxsupport.library") then do
  130.     echo "LIBS:RexxSupport.Library not found."
  131.     exit
  132. end
  133.  
  134. ok=addlib("rexxsupport.library",0,-30,0)
  135.  
  136. address 'IBROWSE'
  137.  
  138. address command ""||Clock||" pubscreen "||IBrowseScreen||" digital format 2 top "||top" left "||left||""
  139.  
  140. exit
  141.  
  142. /************************************************************************/
  143. /*                                    */
  144. /*                 END                    */
  145. /*                                    */
  146. /************************************************************************/
  147.